Constant AudioCategory
  Sound = "Default"
  Music = "Music"
End Constant

Constant Sound
  Kettei = "kettei"
  Kirareta = "kirareta"
  Kitta = "kitta"
  Tonaeta = "tonaeta"
  Stair = "stair"
  Box = "box"
  Falling = "falling"
  Breath = "breath"
  Breath2 = "breath2"
  Eraser = "eraser"
  Quake = "quake"
  Beat1 = "beat1"
End Constant

Constant Music
  Battle2 = "Battle2"
  Battle3 = "Battle3"
  Castle = "Castle"
  Cave = "Cave"
  Duel = "Duel"
  Field1 = "Field1"
  Field2 = "Field2"
  Opening = "Opening"
  Tower = "Tower"
  Town = "Town"
  Winning = "Winning"
  LastDungeon = "LastDungeon"
  Inn = "Inn"
  LevelUp = "LevelUp"
  LastBattle = "LastBattle"
  Ending = "Ending"
End Constant

Procedure ChangeBGM(m)
  RaiseEvent("ChangeBGM", m)
End Procedure

Procedure PauseBGM()
  RaiseEvent("PauseBGM")
End Procedure

Procedure ResumeBGM()
  RaiseEvent("ResumeBGM")
End Procedure

Procedure GetAudioVolume(cat)
  If cat = AudioCategory.Music Then
    Return [Party].System_MusicVolume
  Else
    Return [Party].System_DefaultVolume
  End If
End Procedure

Procedure SetAudioVolume(cat, volume_level)
  If volume_level = 1 Then
    SetVolume(cat, 100)
  ElseIf volume_level = 2 Then
    SetVolume(cat, 50)
  ElseIf volume_level = 3 Then
    SetVolume(cat, 25)
  Else
    SetVolume(cat, 0)
  End If
End Procedure

